﻿#!/usr/bin/perl
use strict;

my $name = shift(@ARGV);
open my $fh, "<", $name;
my $first_line = <$fh>;
my @lines = <$fh>;
close $fh;
open my $output, ">", $name;
my @sorted = sort @lines;
print $output $first_line . join("",@sorted);